home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Utilities Experience
/
The Utilities Experience - Volume 1.iso
/
software
/
demos
/
e-q
/
quill
/
install_quill
< prev
next >
Wrap
Text File
|
1995-09-01
|
10KB
|
326 lines
;******************************************************************************
; ____ __ __ __ __ ______ __ __ __
; / __ \ /_/ /_/ _/ /_ / / / __ / /_/ / / / /
; / / / /__ ______ __ / __/______ / / / / / / __ __ __ / / / /
; / / / // / / __ // / / / / __ // / / / / / / / / // / / / / /
; / /_/ // /_ / /_/ // /_ / /_ / __ // / / / /__\ \ / /_/ // /_ / /_ / /_
;/_____//___/ _\__ //___/ /___//_/ /_//___/ /____//_//_____//___//___//___/
; /_____/ Installer by Robert C. Reiswig ©1995
; This installer was Edited in Digital Quill
;
; $VER 1.0g
; Changes, suggestions or problems: rcr@netcom.com
;******************************************************************************
(set quillversion "1.0")
(set spaceneed 350000)
;*** System Stuff ***
(set cpu (database "cpu")) (set vblank (database "vblank"))
(set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
(set osver (/ (getversion "LIBS:version.library") 65536))
(if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
(set fastmem (- totmem graphmem))
( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
( if (= osver 41) ( (set workbench "4.0")) )))))
(set runstring (cat "search" " env:Language "))
(set runstring1 (cat runstring "english")) (if (= (run runstring1) 0) ( (set #lan1 "English") (set lang 0) ) )
(set runstring1 (cat runstring "français")) (if (= (run runstring1) 0) ( (set #lan1 "Français") (set lang 1) ) )
(set runstring1 (cat runstring "suomi")) (if (= (run runstring1) 0) ( (set #lan1 "Suomi") (set lang 2) ) )
(set #langQuestion (cat "The following were found in Locale:\n\n" #lan1 "\n\nSelect one of the installers supported Languages.") )
;********************************************************************
; !welcome
;********************************************************************
(set #about (cat "\n- Digital Quill Demo" quillversion " -\n\nTimothy Aston ©1992-1995\n\n\n\nPhantom Development, Inc.\n\n"
"P.O. Box 572\n\nPlantsville, CT 06479\n\nTelephone: "
"(203) 276-8175"
)
)
(message #about)
(welcome)
;********************************************************************************
;ASK DEFAULT LANG
;********************************************************************************
(set LAN (askchoice (choices "English" "Français" "Suomi"
(prompt #langQuestion)
(help #langQuestion)
(default lang)
)
)
)
;********************************************************************
; English Strings
;********************************************************************
(set #sorry "Digital Quill requires at least Kickstart 2.1. Here is the current setup:\n\n")
(set #sorry1 (cat " \"" workbench "\" Version of OS\n\n"
" \"" cpu "\" Processor\n "
" \"" blank "\" Machine\n"
" \"" graphmem "\" Total Free Chip Memory\n"
" \"" fastmem "\" Total Free Fast Memory\n"
)
)
(set #WhereQuill (cat "Where do you wish to install Digital Quill? "
"A directory called \"DigitalQuill\" will be created there "
"if none is present. If you have an older version installed it will back it up."
)
)
;********************************************************************
; French Strings
;********************************************************************
(if (= LAN 1)
(set HOLD_HOLD 1)
)
;********************************************************************
; Suomi Strings
;********************************************************************
(if (= LAN 1)
(set HOLD_HOLD 1)
)
;********************************************************************
; Check OS for <37
;********************************************************************
(if (< osver 37)
(abort (cat #sorry #sorry1))
)
;********************************************************************
; Ask where to put DQ & Make Dir
;********************************************************************
(set DQdir (askdir (prompt #WhereQuill)
(help #WhereQuill)
(default "Work:")
)
)
(if (< (exists (tackon DQdir "DigitalQuill")) 2)
(makedir (tackon DQdir "DigitalQuill") (infos))
)
(set where (tackon DQdir "DigitalQuill"))
(set where1 DQdir)
(set @default-dest where)
;********************************************************************
; Check for old & backup
;********************************************************************
(if (exists (tackon where "Quill"))
(
(if (< (exists (tackon where "Old-Quill")) 2)
(makedir (tackon where "Old-Quill") (infos))
)
(copyfiles (source (tackon where "Quill")) (dest (tackon where "Old-Quill")) (infos) )
(delete (tackon where "Quill"))
)
)
;********************************************************************
; Make sure there is room
;********************************************************************
(set space1 (getdiskspace where))
(set spacedif (- spaceneed space1))
(set #yaspace (cat "'" where1 "' has enough room for Digital Quill."))
(if (< space1 spaceneed)
(set #yaspace (cat where " is " spacedif " bytes short.\nYou will need to "
"'Abort Install' and free up some more space to install "
" Digital Quill on " where " ."
)
)
)
(message (cat spaceneed " bytes are needed on\n\n'" where1 "'\n\nto install Digital Quill.\n\n\n"
"Currently there is " space1 " bytes free.\n\n\n" #yaspace
)
)
;********************************************************************
; Copy Main Binary
;********************************************************************
(set #yes "Yes")
(set #no "No")
(set oldquill (tackon where "Old-Quill") )
(set oldrexx (tackon oldquill "Rexx") )
(set oldmacros (tackon oldquill "Macros") )
(set #dic "\nInstall Default Quill Icon Pack?\n")
(set #rexx (cat "Do you wish to install the Quill AREXX Scripts to Rexx: ?"
" All of the old ones will be backed up to " oldrexx
)
)
(set #macros (cat "Do you wish to install any of the the Quill Macros?"
" All of the old ones will be backed up to " oldmacros
)
)
(set #mdefault "Digital Quill Default")
(set #msas "SAS/C Compiler Support")
(set #mdice "DICE Compiler Support")
(set #mm2 "Benchmark Modula-2 Support")
(set #mask "What Macro support do you wish to use?")
(set dic (askchoice (choices #yes #no
(prompt #dic)
(help #dic)
(default 0)
)
)
)
(set rexx1 (askchoice (choices #yes #no
(prompt #rexx)
(help #rexx)
(default 0)
)
)
)
(set macros (askchoice (choices #yes #no
(prompt #macros)
(help #macros)
(default 0)
)
)
)
(if (= dic 0)
(
(if (< (exists "env:Quill") 2) (makedir "env:Quill") )
(if (< (exists "envarc:Quill") 2) (makedir "envarc:Quill") )
(copyfiles (source "Icons") (dest "envarc:Quill") (all) (infos) )
(copyfiles (source "Icons") (dest "env:Quill") (all) (infos) )
)
)
(if (= rexx1 0)
(
(if (< (exists oldquill) 2) (makedir oldquill) )
(if (< (exists oldrexx) 2) (makedir oldrexx) )
(copyfiles (source "rexx:") (dest oldrexx) (pattern "#?.quill") (infos) )
(copyfiles (source "Rexx") (dest "rexx:") (all) (infos) )
)
)
(copyfiles (source where) (dest oldmacros) (pattern "#?.macros") (infos) )
(if (= macro 0)
(
(if (< (exists oldquill) 2) (makedir oldquill) )
(if (< (exists oldmacros) 2) (makedir oldmacros) )
(copyfiles (source where) (dest oldmacros) (pattern "#?.macros") (infos) )
(set mac (askchoice (choices #mdefault
(prompt #mask)
(help #mask)
(default 0)
)
)
)
(copyfiles (source "Macros") (dest where) (all) (infos) )
(if (> mac 0 )
(
(copyfiles (source "Macros/Quill.macros") (dest where) (newname "Quill_Default.macros") )
(delete (cat where "Quill.macros"))
(if (= mac 1)
(
(copyfiles (source (tackon where "Quill_SAS.macros")) (dest where) (newname "Quill.macros"))
(if (< (exists "env:SC") 2) (makedir "env:SC") )
(if (< (exists "envarc:SC") 2) (makedir "envarc:SC") )
(copyfiles (source "Env") (dest "envarc:") (all) (infos) )
(copyfiles (source "Env") (dest "env:") (all) (infos) )
)
)
(if (= mac 2) (copyfiles (source (tackon where "Quill_DICE.macros")) (dest where) (newname "Quill.macros")) )
(if (= mac 3) (copyfiles (source (tackon where "Quill_M2.macros")) (dest where) (newname "Quill.macros")) )
)
)
)
)
(copyfiles (source "Quill") (dest where) (infos) )
;(if (< (exists "sys:Locale/Catalogs/english") 2) (makedir "sys:Locale/Catalogs/english") )
(if (< (exists "sys:Locale/Catalogs/français") 2) (makedir "sys:Locale/Catalogs/français") )
(if (< (exists "sys:Locale/Catalogs/suomi") 2) (makedir "sys:Locale/Catalogs/suomi") )
(copyfiles (source "Catalogs/français/Quill.catalog") (dest "sys:Locale/Catalogs/français") (infos) )
(copyfiles (source "Catalogs/suomi/Quill.catalog") (dest "sys:Locale/Catalogs/suomi") (infos) )
(copyfiles (source "Quill") (dest where) (infos) )
(copyfiles (source "SpeedButtons.8") (dest where) (infos) )
(copyfiles (source "Read_Me") (dest where) (infos) )
(copyfiles (source "Doc") (dest where) (all) (infos) )
(copyfiles (source "Fonts") (dest "fonts:") (all) (infos) )
(if (= LAN 0)
(copyfiles (source "Help/Quill_English.guide") (dest where) (infos) (newname "Quill.guide"))
)